home *** CD-ROM | disk | FTP | other *** search
/ The Stock Market: Browser - Disc 1 / TheStockMarketRoyaltyFreeImages-BrowserDisc1-WinMac.bin / pc / English-UK / Main.dir / 00023_Script_Go Frame Script for central screen < prev    next >
Text File  |  2000-02-10  |  886b  |  47 lines

  1.  
  2. on exitFrame
  3.   go the frame
  4.   
  5.   ---Alternate rotate image
  6.   if the timer > 200 then
  7.     
  8.     global gRotate, gCurrentPicture, gLastPicture
  9.     starttimer
  10.     
  11.     if gCurrentPicture < gRotate then
  12.       put gCurrentPicture + 1 into gCurrentPicture
  13.     else
  14.       put 1 into gCurrentPicture
  15.     end if
  16.     
  17.     set the member of sprite 6 = member gCurrentPicture of castlib "Rotate16"
  18.     
  19.     --    put random(gRotate) into var
  20.     --    if var <> gCurrentPicture or var <> gLastPicture then
  21.     --      set the member of sprite 6 = member var of castlib "Rotate16"
  22.     --      put gCurrentPicture into gLastPicture
  23.     --      put var into gCurrentPicture
  24.     --      starttimer
  25.     --    end if
  26.     
  27.     
  28.   end if
  29.   
  30.   
  31.   sound stop 2
  32.   
  33.   
  34.   --Handle the buttons, rollovers
  35.   RollControl
  36.   
  37. end
  38.  
  39.  
  40.  
  41. on mousedown
  42.   -- PushControl
  43. end
  44.  
  45.  
  46.  
  47.